home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Programme (19xx)(-)(de)[gt105a].d64 / imagecon (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  230 lines
  1. 10 IFA=1THEN74
  2. 12 PRINTCHR$(14):POKE53280,0:POKE53281,15:POKE646,11
  3. 14 PRINT"[147][199][197][207][208]AINT/[200]I-RES [208]ICTURE [195]ONVERTER [146]"
  4. 16 PRINT" [160][160]       C 1986 [205]YSTIC [202]IM."
  5. 18 PRINT"       [208]UT PICTURE DISK IN DRIVE"
  6. 20 PRINT"               [200]IT A [203]EY."
  7. 22 GETA$:IFA$=""THEN22
  8. 24 FORI=49152TO49719:READJ:POKEI,J:NEXTI
  9. 26 PRINT"[147]  [215]HEN LISTING REACHES FILE TO CONVERT,"
  10. 28 PRINT"               [200]IT A [203]EY."
  11. 30 OPEN15,8,15
  12. 32 OPEN1,8,0,"$"
  13. 34 GET#1,A$,A$
  14. 36 GET#1,A$,A$
  15. 38 IFA$=""THEN64
  16. 40 GET#1,A$,A$
  17. 42 GET#1,A$
  18. 44 IFA$=CHR$(34)THENT=T+1
  19. 46 IFA$=CHR$(34)ORT<>1THEN52
  20. 48 IFA$=CHR$(129)THENK2=1:GOTO52
  21. 50 N$=N$+A$
  22. 52 IF A$=""THEN56
  23. 54 GOTO42
  24. 56 PRINTN$
  25. 58 GETD$:IFD$<>""THEN64
  26. 60 N$="":T=0
  27. 62 GOTO36
  28. 64 CLOSE1:CLOSE15
  29. 66 PRINT"[205]OVE CURSOR TO SELECTION, [200]IT [210][197][212][213][210][206][146]"
  30. 68 INPUTF$
  31. 70 K2$="              "
  32. 72 IFK2=1THENF$=CHR$(129)+F$+K2$:F$=LEFT$(F$,15)
  33. 74 IFA=0THENA=1:LOADF$,8,1
  34. 76 PRINT"[147][145][201]S PICTURE [200][146]I-RES OR [205][146]ULTICOLOR?    "
  35. 78 GETA$:IFA$<>"H"ANDA$<>"M"THEN78
  36. 80 IFA$="M"THEN88
  37. 82 PRINT"[147][145][210][146]ETAIN COLORS, OR MAKE [205][146]ONOCHROME?"
  38. 84 GETA$:IFA$<>"R"ANDA$<>"M"THEN84
  39. 86 IFA$="R"THEN106
  40. 88 PRINT"[145]  [195][146]HOOSE COLORS, OR USE [199][197][207][211] [196][146]EFAULT?"
  41. 90 GETA$:IFA$<>"C"ANDA$<>"D"THEN90
  42. 92 IFA$="D"THENB1=191:GOTO104
  43. 94 INPUT"[195]HOOSE BACKGROUND COLOR (1-16)";A1
  44. 96 IFA1<1ORA1>16THENPRINT"[145][145]                                           ";:GOTO94
  45. 98 INPUT"[195]HOOSE FOREGROUND COLOR (1-16)";A2
  46. 100 IFA2<1ORA2>16THENPRINT"[145][145]                                          ";:GOTO98
  47. 102 B1=(A2-1)+16*(A1-1)
  48. 104 FORI=23552TO24551:POKEI,B1:NEXTI
  49. 106 PRINTCHR$(14);"[147]   
  50. 108 [159]2,8,2,"0:"[170]F$
  51. 110 [160]2
  52. 112 [151]198,1
  53. 114 [151]53265,[194](53265)[176]32
  54. 116 [151]53272,([194](53272)[175]15)[176]120
  55. 118 [151]56576,([194](56576)[175]252)[176]2
  56. 120 [151]56578,([194](56578)[176]3)
  57. 122 [161]A$:[139]A$[178]""[167]122
  58. 124 [151]53265,27:[151]53272,23:I[178]0:[151]56576,151
  59. 126 [153]"LOAD  (null)WAITSE THESE COLORS, OR TRY (null)WAITEW ONES?"
  60. 128 [161]A$:[139]A$[178]""[167]128
  61. 130 [139]A$[179][177]"U"[175]A$[179][177]"N"[167]128
  62. 132 [139]A$[178]"N"[167][153]"LOAD":[137]88
  63. 134 [151]2,0:[151]808,234
  64. 136 [153]"LOADSAVE       (null)(null)ATNLENVAL CHR$VAL(null)(null) STR$RIGHT$(null)(null) RIGHT$(null) STR$(null)RIGHT$(null)VAL  WAIT"
  65. 138 [153]"              LEFT$IT A (null)EYON"
  66. 140 [161]A$:[139]A$[178]""[167]140
  67. 142 [139]A$[178]"N"[167]348
  68. 144 [153]"           WORKING....               "
  69. 146 [159]15,8,15,"I0"
  70. 148 [141]336
  71. 150 [159]2,8,2,"#"
  72. 152 [141]336
  73. 154 [152]15,"UA:2,0,18,0"
  74. 156 [141]336
  75. 158 [152]15,"B-P:2,173"
  76. 160 [141]336
  77. 162 B$[178]"":M[178]2
  78. 164 [129]I[178]0[164]10
  79. 166 [141]350
  80. 168 B$[178]B$[170]A$
  81. 170 [130]I
  82. 172 [139][198](B$)[178]([198]("GEOS ASC(null)(null)(null)ATN(null)"))[167]176
  83. 174 [153]"LOAD      (null)(null)(null) ATN CHR$VAL(null)(null) STR$RIGHT$(null)(null)  WAIT":[137]348
  84. 176 J[178]250:K[178]252
  85. 178 [141]356
  86. 180 C[178]B[170]256[172]A
  87. 182 [139]C[177]50 [167]186
  88. 184 [153]"  (null)(null)(null) VAL(null)(null)(null)CHR$LEFT$ (null)(null)(null)(null) (null)(null) STR$RIGHT$(null)(null)  WAIT":[137]348
  89. 186 [159]3,8,3,"TEMP,S,W"
  90. 188 [141]336
  91. 190 [152]3,"TEXT"
  92. 192 [160]3
  93. 194 [158]49577
  94. 196 [159]3,8,3,"TEMP,S,R"
  95. 198 [141]336
  96. 200 J[178]144:K[178]148
  97. 202 [141]356
  98. 204 [160]3
  99. 206 D[178]B:E[178]A:M[178]2
  100. 208 [141]370
  101. 210 [152]2,[199](0);
  102. 212 [141]350
  103. 214 G$[178]A$:G[178]A
  104. 216 [141]350
  105. 218 H$[178]A$:H[178]A
  106. 220 [152]15,"UB:2,0,18"D
  107. 222 [159]3,8,3,"TEMP,S,W"
  108. 224 [141]336
  109. 226 [140]:[129]I[178]49152[164]49719:[135]J:[130]I
  110. 228 [129]I[178]1[164]158
  111. 230 [135]J
  112. 232 [152]3,[199](J);
  113. 234 [130]I
  114. 236 [129]I[178]1[164]96:[152]3,[199](0);:[130]I
  115. 238 [160]3
  116. 240 [141]370
  117. 242 [152]2,[199](0);
  118. 244 [141]350
  119. 246 D$[178]A$
  120. 248 [141]350
  121. 250 E$[178]A$
  122. 252 [152]15,"UB:2,0,18"D
  123. 254 [159]3,8,3,"TEMP,S,W"
  124. 256 [141]336
  125. 258 [158]49172
  126. 260 [160]3
  127. 262 [141]370
  128. 264 [152]2,[199](0);
  129. 266 [141]350
  130. 268 T[178]A
  131. 270 [141]350
  132. 272 S[178]A
  133. 274 [152]15,"UB:2,0,18"D
  134. 276 [151]780,T:[151]781,S
  135. 278 [158]49551
  136. 280 [139][194](2)[178]0[167]254
  137. 282 [141]370
  138. 284 J[178]250:K[178]252
  139. 286 [141]356
  140. 288 B[178]B[170]256[172]A:B[178]C[171]B
  141. 290 Q[178][181](B[173]256):L[178]B[171]256[172]Q
  142. 292 C$[178]""
  143. 294 [129]I[178]1[164][195](F$)
  144. 296 B$[178][202](F$,I,1)
  145. 298 [139]B$[178]"*"[167]I[178][195](F$):[137]310
  146. 300 B[178][198](B$)
  147. 302 [139]B[177]64[175]B[179]91[167]B[178]B[170]32:B$[178][199](B)
  148. 304 [139]B[177]191[175]B[179]224[167]B[178]B[171]96:B$[178][199](B)
  149. 306 C$[178]C$[170]B$
  150. 308 [130]I
  151. 310 I$[178]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE"
  152. 312 C$[178]C$[170][201](I$,(16[171][195](C$)))
  153. 314 I$[178][199](1)[170][199](7)[170][199](86)[170][199](10)[170][199](4)[170][199](1)[170][199](0)
  154. 316 I$[178][199](131)[170]G$[170]H$[170]C$[170]D$[170]E$[170]I$[170][199](L)[170][199](Q)
  155. 318 [152]2,I$;
  156. 320 [152]15,"UB:2,0,18"D
  157. 322 [141]336
  158. 324 [152]15,"UA:2,0"G;H
  159. 326 [141]336
  160. 328 [158]49606
  161. 330 [152]15,"UB:2,0"G;H
  162. 332 [141]336
  163. 334 [153]"LOAD           LEN(null)(null)(null)(null)VAL(null)VAL  WAIT":[137]348
  164. 336 [132]15,N,M$,O,P
  165. 338 [139] N[179]20[167][142]
  166. 340 [153]"LOAD  STR$RIGHT$(null)(null) VAL(null)(null)(null)(null)  WAIT"
  167. 342 [153]"     ";N,M$,O,P
  168. 344 [137]348
  169. 346 [142]
  170. 348 [160]2:[160]3:[160]15:[151]808,237:[128]
  171. 350 [161]#M,A$:[139]A$[178]""[167]A$[178][199](0)
  172. 352 A[178][198](A$)
  173. 354 [142]
  174. 356 [152]15,"M-R"[199](J)[199](2)
  175. 358 M[178]15
  176. 360 [141]350
  177. 362 B[178]A
  178. 364 [152]15,"M-R"[199](K)[199](2)
  179. 366 [141]350
  180. 368 [142]
  181. 370 [152]15,"UA:2,0,18"D
  182. 372 [141]336
  183. 374 [152]15,"B-P:2"E
  184. 376 [142]
  185. 378 [128]
  186. 380 [131]76,20,192,76,169,193,76,143,193,76,198,193,0,0,2,0,0,0,0,0,169,198
  187. 382 [131]141,133,193,169,0,141,132,193,238,15,192,173,18,192,133,251,173,19
  188. 384 [131]192,133,252,162,0,160,0,177,251,201,0,208,52,200,208,247,230,252,177
  189. 386 [131]251,201,0,208,41,200,192,64,208,245,32,254,193,224,1,240,3,232,208
  190. 388 [131]222,238,14,192,238,14,192,165,251,141,18,192,165,252,141,19,192,173
  191. 390 [131]15,192,201,13,208,174,133,2,96,169,1,141,12,192,173,18,192,133,251
  192. 392 [131]173,19,192,133,252,162,0,160,0,169,63,32,131,193,177,251,32,131,193
  193. 394 [131]200,192,63,144,246,32,240,193,232,224,5,144,231,169,5,32,131,193,160
  194. 396 [131]0,177,251,32,131,193,200,192,5,144,246,32,42,194,162,2,169,255,32
  195. 398 [131]131,193,169,0,32,131,193,202,208,243,173,12,192,208,4,169,202,208,2
  196. 400 [131]169,194,32,131,193,169,0,32,131,193,173,12,192,240,16,206,12,192,173
  197. 402 [131]15,192,201,13,208,3,76,12,194,76,120,192,165,251,141,18,192,165,252
  198. 404 [131]141,19,192,173,15,192,201,13,208,4,169,1,133,2,169,1,141,13,192,160
  199. 406 [131]0,169,40,32,131,193,185,0,92,32,131,193,200,192,40,144,245,169,168
  200. 408 [131]32,131,193,169,191,32,131,193,24,173,0,193,105,40,141,0,193,173,1
  201. 410 [131]193,105,0,141,1,193,173,13,192,240,20,206,13,192,165,2,208,3,76,248
  202. 412 [131]192,169,208,32,131,193,169,191,32,131,193,169,0,32,131,193,173,132
  203. 414 [131]193,141,16,192,173,133,193,141,17,192,32,204,255,162,3,32,201,255
  204. 416 [131]169,0,141,98,193,169,198,141,99,193,173,0,198,32,210,255,238,98,193
  205. 418 [131]208,3,238,99,193,173,99,193,205,17,192,208,234,173,98,193,205,16,192
  206. 420 [131]208,226,32,204,255,96,141,0,198,238,132,193,208,3,238,133,193,96,172
  207. 422 [131]14,192,153,0,207,200,138,153,0,207,200,240,4,140,14,192,96,169,255
  208. 424 [131]133,2,32,204,255,96,162,0,169,0,157,0,207,232,169,255,157,0,207,232
  209. 426 [131]224,94,144,240,169,0,157,0,207,232,208,248,76,218,193,162,2,32,201
  210. 428 [131]255,160,0,185,0,207,32,210,255,200,208,247,32,204,255,96,169,96,141
  211. 430 [131]19,192,169,92,141,1,193,169,0,141,18,192,141,0,193,141,15,192,96,24
  212. 432 [131]165,251,105,63,133,251,165,252,105,0,133,252,96,24,165,251,105,64
  213. 434 [131]133,251,165,252,105,0,133,252,96,162,0,160,0,169,255,32,131,193,152
  214. 436 [131]32,131,193,232,224,5,144,242,169,141,32,131,193,152,32,131,193,76
  215. 438 [131]222,192,24,165,251,105,5,133,251,165,252,105,0,133,252,96
  216. 440 [131]3,21,191
  217. 442 [131]127,255,254,224,024,007,192,255
  218. 444 [131]003,147,000,201,132,000,033,132
  219. 446 [131]000,033,137,016,017,137,176,017
  220. 448 [131]145,080,009,145,080,009,243,027
  221. 450 [131]143,144,001,009,144,001,009,136
  222. 452 [131]017,017,136,014,017,132,000,033
  223. 454 [131]132,000,033,147,000,201,192,255
  224. 456 [131]003,224,024,007,127,255,254
  225. 458 [131]131,7,1,0,0,255,255,0,0,80,97,105,110,116,32,73,109,97,103,101,32
  226. 460 [131]86,49,46,49,0,0,0,0
  227. 462 [131]77,121,115,116,105,99,32,74,105,109,32,99,32,49,57,56,54,32,32,32,103
  228. 464 [131]101,111,80,97,105,110,116,32,32,32,32,86,49,46,49,0,0,0,0,32,28,63,141
  229. 466 [131]252,61,32,165,4,32,60,63,169,0,141,184,95,169,0,133,17,169,7
  230.